home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CS / CSCD020A.D64 / mega kines_pstk (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  5.6 KB  |  199 lines
  1. 1 IFPEEK(816)=165ANDPEEK(817)=244THEN5
  2. 2 PRINT"KILL CARTRIDGE!!":END
  3. 5 POKE53281,0:POKE53280,0:CLR
  4. 10 PRINT"    [142]";
  5. 20 PRINT"";
  6. 25 FORI=0TO24:POKE54272+I,0:NEXT:POKE54296,15+16:POKE54295,240+3:POKE54294,70
  7. 27 POKE54277,0:POKE54278,224:POKE54275,1:POKE54276,65:POKE54272,90:POKE54273,2
  8. 29 POKE54284,0:POKE54285,15*14+0:POKE54283,129:POKE54272+7,0:POKE54273+7,240
  9. 30 AA$="     [176][192][192][204][175][210][198][195][196][197][208]  "
  10. 40 AB$="   [176][192][177][192][192][177][192][192][178][195][196][197][183]  "
  11. 50 AC$="[160][176][192][177][177][177][177][177][177][177][177][177][192][174]    "
  12. 60 AD$="[160] [191][163][163][163][163][163][163][163][163][163][191]     "
  13. 70 AE$="[160]  [191][191][191][191][191][191][191][191][191][190]     "
  14. 80 BA$="     [176][192][192][204][210][198][195][196][197][183][208]  "
  15. 90 BB$="   [176][192][177][192][192][177][192][192][178][196][197][183][183]  "
  16. 100 BC$="[160][176][192][177][177][177][177][177][177][177][177][177][192][174]    "
  17. 110 BD$="[160] [161][163][163][163][163][163][163][163][163][163][161]     "
  18. 120 BE$="[160] [223][175][198][175][196][210][195][175][198][197]      "
  19. 121 C$="[197][183][183][197][183][183][183][197][196][197][183][183][197][195][198][196][183][183][183][196][183][183][197][183][183][183][183][196][195][196][197][196][197][195][210][195][197][183][196][197]":C$=C$+C$
  20. 129 PRINT"[149]";MID$(C$,40,39)
  21. 130 PRINT"";
  22. 140 FORI=1TO17STEP2:J=I+1
  23. 150 PRINTRIGHT$(AA$,I):PRINTRIGHT$(AB$,I):PRINTRIGHT$(AC$,I):PRINTRIGHT$(AD$,I)
  24. 160 PRINTRIGHT$(AE$,I):PRINT"[145][145][145][145][145]";:FORK=1TO50:NEXT
  25. 170 PRINTRIGHT$(BA$,J):PRINTRIGHT$(BB$,J):PRINTRIGHT$(BC$,J):PRINTRIGHT$(BD$,J)
  26. 180 PRINTRIGHT$(BE$,J):PRINT"[145][145][145][145][145]";:FORK=1TO50:NEXT
  27. 190 NEXTI
  28. 200 FORI=1TO10STEP2:J=I+1
  29. 240 PRINTSPC(I)AA$:PRINTSPC(I)AB$:PRINTSPC(I)AC$:PRINTSPC(I)AD$:PRINTSPC(I)AE$
  30. 245 PRINT"[145][145][145][145][145]";:FORK=1TO50:NEXT
  31. 250 PRINTSPC(J)BA$:PRINTSPC(J)BB$:PRINTSPC(J)BC$:PRINTSPC(J)BD$:PRINTSPC(J)BE$
  32. 255 PRINT"[145][145][145][145][145]";:FORK=1TO50:NEXT
  33. 260 NEXT:C=I
  34. 265 FORJ=1TO2:FORI=1TO40STEP2
  35. 270 PRINTSPC(C)AA$:PRINTSPC(C)AB$:PRINTSPC(C)AC$:PRINTSPC(C)AD$:PRINTSPC(C)AE$
  36. 272 PRINT"[149]"MID$(C$,I,39)"[145][145][145][145][145][145]"
  37. 275 FORK=1TO15:NEXT
  38. 280 PRINTSPC(C)BA$:PRINTSPC(C)BB$:PRINTSPC(C)BC$:PRINTSPC(C)BD$:PRINTSPC(C)BE$
  39. 282 PRINT"[149]"MID$(C$,I+1,39)"[145][145][145][145][145][145]"
  40. 285 FORK=1TO15:NEXT
  41. 290 NEXT:NEXT
  42. 300 PRINT"";
  43. 310 PRINT"[151]       [223][169]     [146][169]          [169] [146][169]"
  44. 320 PRINT"[152]      [169]     [146][169]          [169] [146][169]"
  45. 330 PRINT"[155]      [169]        [169] [223][169][194][223]"
  46. 340 PRINT"===================================[165][194] [146]>"
  47. 345 REM PRINT "       [146][169][169]        [146][169]            [223]"
  48. 350 PRINT"[155]     [146][169]          [146][223] [146][169][223][194][146][169]"
  49. 360 PRINT"[152]   [169]     [146][169]           [146][223]  [223]"
  50. 370 PRINT"[151]   [169]     [146][169]            [146][223]  [223]":PRINT"";
  51. 385 FORJ=1TO2:FORI=1TO40STEP2
  52. 390 PRINTSPC(C)AA$:PRINTSPC(C)AB$:PRINTSPC(C)AC$:PRINTSPC(C)AD$:PRINTSPC(C)AE$
  53. 392 PRINT"[149]"MID$(C$,I,39)"[145][145][145][145][145][145]"
  54. 395 FORK=1TO15:NEXT
  55. 400 PRINTSPC(C)BA$:PRINTSPC(C)BB$:PRINTSPC(C)BC$:PRINTSPC(C)BD$:PRINTSPC(C)BE$
  56. 402 PRINT"[149]"MID$(C$,I+1,39)"[145][145][145][145][145][145]"
  57. 405 FORK=1TO15:NEXT
  58. 410 NEXT:NEXT
  59. 420 PRINT"";
  60. 430 PRINT"     ,,, ,,, ,,, ,,, ,,, ,  , ,,, ,,,"
  61. 440 PRINT"    [150], , [155], , [154],   [153],   [150],   [155],, , [154] ,  [153],  "
  62. 450 PRINT"   [150],,, [155],,, [154],,, [153],,, [150],,, [155],, , [154] ,  [153],,,"
  63. 460 PRINT"  ,   [156],,  ,     , ,   [156], ,,  ,    ,"
  64. 470 PRINT" ,   [156], , ,     , ,   [156], ,,  ,    ,"
  65. 480 PRINT",   [156], , ,,, ,,, ,,, [156],  ,  ,  ,,,":PRINT"";
  66. 500 FORJ=1TO2:FORI=1TO40STEP2
  67. 510 PRINTSPC(C)AA$:PRINTSPC(C)AB$:PRINTSPC(C)AC$:PRINTSPC(C)AD$:PRINTSPC(C)AE$
  68. 512 PRINT"[149]"MID$(C$,I,39)"[145][145][145][145][145][145]"
  69. 515 FORK=1TO15:NEXT
  70. 520 PRINTSPC(C)BA$:PRINTSPC(C)BB$:PRINTSPC(C)BC$:PRINTSPC(C)BD$:PRINTSPC(C)BE$
  71. 522 PRINT"[149]"MID$(C$,I+1,39)"[145][145][145][145][145][145]"
  72. 525 FORK=1TO15:NEXT
  73. 530 NEXT:NEXT
  74. 540 POKE54295,240+1:POKE54276+7,0:POKE54276,0:POKE54278,240+12
  75. 550 POKE54273,1:POKE54276,129:POKE54276,128
  76. 560 PRINT"[147]        S C A B O O O O O M  !"
  77. 561 PRINT"        F L A D A M M M M M  !"
  78. 565 FORI=1TO3
  79. 570 WAIT53265,128:POKE53281,11:POKE53280,11:FORJ=1TO10:NEXT
  80. 580 WAIT53265,128:POKE53281,12:POKE53280,12:FORJ=1TO10:NEXT
  81. 590 WAIT53265,128:POKE53281,15:POKE53280,15:FORJ=1TO10:NEXT
  82. 600 WAIT53265,128:POKE53281,1:POKE53280,1:FORJ=1TO10:NEXT
  83. 610 WAIT53265,128:POKE53281,15:POKE53280,15:FORJ=1TO10:NEXT
  84. 620 WAIT53265,128:POKE53281,12:POKE53280,12:FORJ=1TO10:NEXT
  85. 630 WAIT53265,128:POKE53281,11:POKE53280,11:FORJ=1TO10:NEXT
  86. 640 WAIT53265,128:POKE53281,0:POKE53280,0:FORJ=1TO10:NEXT:NEXT
  87. 650 FORI=1TO400:NEXT
  88. 655 PRINT"[147][155]";
  89. 660 PRINT"  [223][169]          [169]     [223][169][223]"
  90. 670 PRINT"   [223][169]           [169]       [223][169]  [223]"
  91. 680 PRINT"    [223][169]          [146][169]  [223]  [169]    [223]"
  92. 690 PRINT"   [146][223]  [146][169]            [169]  [146][169][223]  [223]"
  93. 700 PRINT"   [146][223][169]                      "
  94. 710 PRINT"            [223][169]          "
  95. 720 PRINT"              [146][223]       [146][169]      "
  96. 730 PRINT"              [146][223]     [146][169]      "
  97. 740 PRINT:PRINT:PRINT:PRINT
  98. 750 PRINT"   **  **  **  **   ** ******  ****   "
  99. 760 PRINT"   ** **   **  ***  ** ****** **  **  "
  100. 770 PRINT"   ****    **  **** ** **     **      "
  101. 780 PRINT"   ****    **  ******* ****    ****  "
  102. 790 PRINT"   ** **   **  ** **** **         **   "
  103. 800 PRINT"   **  **  **  **  *** ****** **  **   "
  104. 810 PRINT"   **  **  **  **   ** ******  ****    "
  105. 820 FORI=1TO2500:NEXT
  106. 900 FORI=0TO24:POKE54272+I,0:NEXT:POKE54296,15
  107. 910 FORI=0TO10:R(I)=200+7*RND(0):NEXT
  108. 920 POKE56334,0
  109. 1000 PRINT"[147]";
  110. 1010 PRINTSPC(8)"    [146]"
  111. 1015 PRINTSPC(8)" [146]   [146]"
  112. 1020 PRINTSPC(7)"CO[146]DIN[146]G: KENTSU, !AJY"
  113. 1025 PRINTSPC(8)" [146]   [146]"
  114. 1030 PRINTSPC(8)" [146]   [146]"
  115. 1035 PRINTSPC(8)" [146]   [146]"
  116. 1040 PRINTSPC(8)"    [146]"
  117. 1045 PRINTSPC(8)" [146]"
  118. 1050 PRINTSPC(8)" [146]"
  119. 1055 PRINTSPC(8)" [146]"
  120. 1060 PRINTSPC(8)" [146]"
  121. 1065 PRINTSPC(8)" [146]"
  122. 1090 GOSUB1500
  123. 1100 PRINT"";
  124. 1110 PRINTSPC(14)"    [146]"
  125. 1115 PRINTSPC(14)" [146]"
  126. 1120 PRINTSPC(14)" [146]"
  127. 1125 PRINTSPC(14)" [146]"
  128. 1130 PRINTSPC(7)"GF[146]X: [146]   [146]KENTSU, MAKE"
  129. 1135 PRINTSPC(14)"    [146]"
  130. 1140 PRINTSPC(17)" [146]"
  131. 1145 PRINTSPC(17)" [146]"
  132. 1150 PRINTSPC(17)" [146]"
  133. 1155 PRINTSPC(17)" [146]"
  134. 1160 PRINTSPC(17)" [146]"
  135. 1165 PRINTSPC(14)"    [146]"
  136. 1190 GOSUB1500
  137. 1200 PRINT"";
  138. 1210 PRINTSPC(20)"     [146]"
  139. 1215 PRINTSPC(22)" [146]"
  140. 1220 PRINTSPC(22)" [146]"
  141. 1225 PRINTSPC(22)" [146]"
  142. 1230 PRINTSPC(22)" [146]"
  143. 1235 PRINTSPC(22)" [146]"
  144. 1240 PRINTSPC(7)"MUSIC[146]S: !AJ[146]Y, MA[146]KE"
  145. 1245 PRINTSPC(22)" [146]"
  146. 1250 PRINTSPC(22)" [146]"
  147. 1255 PRINTSPC(22)" [146]"
  148. 1260 PRINTSPC(22)" [146]"
  149. 1265 PRINTSPC(22)" [146]"
  150. 1290 GOSUB1500
  151. 1300 PRINT"";
  152. 1310 PRINTSPC(27)"  [146]"
  153. 1315 PRINTSPC(27)"  [146]"
  154. 1320 PRINTSPC(27)"  [146]"
  155. 1325 PRINTSPC(27)"  [146]"
  156. 1330 PRINTSPC(27)"  [146]"
  157. 1335 PRINTSPC(27)"  [146]"
  158. 1340 PRINTSPC(27)"  [146]"
  159. 1345 PRINTSPC(27)"  [146]"
  160. 1350 PRINTSPC(7)"SO[146]UNDS: KEN[146]TSU, [146]!AJY  [146]"
  161. 1355 PRINTSPC(27)"  [146]"
  162. 1360 PRINTSPC(27)"  [146]"
  163. 1365 PRINTSPC(27)"  [146]"
  164. 1390 GOSUB1500
  165. 1400 POKE56334,1:POKE53270,200:FORI=1TO70:NEXT:GOTO2000
  166. 1500 POKE54278+7,14*16+10:POKE54273+7,100:POKE54276+7,129
  167. 1502 FORJ=1TO2:NEXT:POKE54276+7,128
  168. 1505 FORI=0TO6
  169. 1510 POKE54275,6
  170. 1515 POKE54278,14*16+9
  171. 1520 POKE54276,65
  172. 1530 FORJ=10TO0STEP-1.8:POKE54273,J:POKE53270,R(J):NEXT
  173. 1535 FORJ=10TO0STEP-1.8:POKE54273,J:POKE53270,R(J):NEXT
  174. 1540 POKE54273,4:POKE54275,8:FORJ=1TO120:NEXT
  175. 1550 NEXT
  176. 1560 FORJ=10TO0STEP-1.8:POKE54273,J:POKE53270,R(J):NEXT
  177. 1565 FORJ=10TO0STEP-1.8:POKE54273,J:POKE53270,R(J):NEXT
  178. 1570 POKE54273,4:POKE54275,8
  179. 1590 RETURN
  180. 2000 POKE53281,11:POKE53280,11
  181. 2001 POKE54278+7,14*16+14:POKE54273+7,0:POKE54272+7,240:POKE54276+7,129
  182. 2002 FORJ=1TO2:NEXT:POKE54276+7,128
  183. 2003 POKE54276,0
  184. 2005 POKE53281,0:POKE53280,0:PRINT"[147]";
  185. 2010 PRINTSPC(17)"[223][169][146]"
  186. 2020 PRINTSPC(17)" [223][169] [146]"
  187. 2030 PRINTSPC(17)"[172][187][172][187][146]"
  188. 2040 PRINTSPC(17)"[188][190][188][190][146]"
  189. 2050 PRINTSPC(15)"    [146]"
  190. 2060 PRINTSPC(15)"    [146]"
  191. 2070 PRINTSPC(15)"  [223][169]  [146]"
  192. 2080 PRINTSPC(15)"[223]        [146][169]"
  193. 2090 PRINTSPC(16)"[223]      [146][169]"
  194. 2100 PRINT"            CODE 100% BASIC!"
  195. 2500 PRINT"[144]LOAD"CHR$(34)"01*"CHR$(34)",8:"
  196. 2510 PRINT"RUN:";
  197. 2520 POKE198,2:POKE631,13:POKE632,13
  198. 2530 END
  199.